ASP编程错误"在对应所需名称或序数的集合中，未找到项目"

提示"在对应所需名称或序数的集合中，未找到项目"
就是下面这行出错,在数据库里存在class1.

response.write "<option " & dick & " value=" + Cstr(rs("id")) + ">" + rs("class1") + "</option>"

下面是详细代码:
<%
dim rs,sql,id,dick
id=request("id")
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [shang1] order by paixu desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "没有类别请添加！"
response.end
else
Do while not rs.eof
if id=cstr(rs("id")) then
dick="selected"
else
dick=""
end if
response.write "<option " & dick & " value=" + Cstr(rs("id")) + ">" + rs("shang1") + "</option>"
rs.MoveNext
Loop
end if
rs.close
set rs=nothing
clo

ASP编程错误 ASP编程错误"在对应所需名称或序数的集合中，未找到项目" asp编程中批量删除的错误 asp 缺少";" 代码0错误 c++编程:错误在哪 asp的编程问题,错误 '80020009' 在VB中如何实现对"菜单"中的“打印”项进行编程 在ASP编程中,如何连接数据库? ASP编程- ASP编程！！！